-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0xC000 (can't modify, can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 17
-- first background id: 2181
-- card count: 414
-- first card id: 2771
-- list block id: 90258
-- print block id: 15329
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 591872 bytes
-- stack block size: 7168 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0xEEDDBB77EEDDBB77
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global HelpExit,crossRefDepth
  push recent card
  pop card into it
  if "help" is not in it then
    put it into HelpExit
    put 0 into crossRefDepth
  end if
end openStack

on setCrossReference
  global crossRefDepth
  push this card
  add 1 to crossRefDepth
  visual effect zoom open
end setCrossReference

on goSubBkgnd H, V
  if H is empty then put "the last card has no map coords"
  if H < 310 then   -- left column
    if H > 230 then
      if V > 120
      then go card ID 10546 -- Hypertalk
    else go card ID 81958 -- How to use Help
  else
    if H > 160 then
      if V < 150 then
        if V < 95 then go card ID 24361  -- Browsing
        else go card ID 8100  -- Painting
      else
        if V < 190 then go card ID 39597  -- Copying
        else if V < 230 then go card ID 122882  -- Menus
        else go card ID 10271  -- Reference
      end if
    else
      if H < 50 then go Home
      if V > 150 then go card ID 2771 -- Help
      else go card ID 51275  -- Intro
    end if
  end if
end if

if H >= 310 then   -- right column
  if H >= 400 then
    if V > 250
    then go stack "Help Index"  -- Index
  else go card ID 168508  -- Glossary
else
  if V < 190 then
    if V < 150
    then go card ID 72630  -- Commands
  else go card ID 103939  -- Functions
else
  if V < 235
  then go card ID 99080 -- Operators
else go card ID 14304 -- Properties
end if
end if
end if
end goSubBkgnd


on doMap
  if the shiftKey is down then --set map coords
    go card map of help
    wait until the mouse is down
    put the mouseLoc into coords
    go back
    put coords into field "map coords"
  else
    put field "map coords" into coords
    visual effect wipe up
    go to card map of help
    show card button currentloc at coords
    repeat 2
      get the ticks
      hide card button currentloc
      wait until the ticks > it + 20
      show card button currentloc
      wait until the ticks > it + 40
    end repeat
  end if
end doMap

on newCard
  repeat with myField = 1 to the number of bkgnd fields
    if the short name of bkgnd field myField is "map coords" then
      put field "map coords" of previous card into field "map coords"
      exit newCard
    end if
  end repeat
end newCard

on sort
  answer "It would be bad to sort this stack." with "Cancel"
end sort